<%@Page Language="VB" %>
<html>
<head>
<!-- #include file="style.inc" -->
</head>
<body>
<!--------------------------------------------------------------------------->
<span class="heading">The HTML Control </span><p />

<form runat="server">
  <select id="MyListBox"  runat="server">
    <option value="Value 1">Option 1</option>
    <option value="Value 2">Option 2</option>
    <option value="Value 3">Option 3</option>
  </select><br/><br/>
  <input type="submit" value="Submit" />
</form>
<div id="divResult" runat="server" 
enableviewstate="false" /><p />
<div class="cite">
Change the values in the
 controls and click 'Submit'
</div>
<script runat="server">

Sub Page_Load(sender As Object, e As EventArgs)
     divResult.InnerHtml = "Label is "+ MyListBox.Items(2).Text+ "<br />"
     divResult.InnerHtml += "Value is "+ MyListBox.Items(2).Value+ "<br />"
End Sub
</script>

<!--------------------------------------------------------------------------->
<!-- #include file="foot.inc" -->
</body>
</html>

